home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / fapx / fapxbml.plp < prev    next >
Text File  |  1993-07-08  |  2KB  |  69 lines
  1. %BMail2    {
  2.     [bmailno]
  3.     footnote({バイナリメールをダウンロードしています});
  4.     type(bmailno);type({\n});
  5.     wait(Wtime2,{AbortOff({ホストがおもいよ～\n})},
  6.         { (改行のみで終了)\n：},
  7.         {case(COMPRESS={Yes}&&ARCHIVER<>{},
  8.             {Yes},
  9.             {delfile(TEMP2|{_mopterm.bml});
  10.             type(TEMP2|{_MOPTERM.BML\n});
  11.             wait(,,    {2:しない)\n：},
  12.                 {dispoff(!DEBUG);setcdir(TEMP);
  13.                 %file    @nowfile2(TEMP2|{_mopterm.bml},TEMP);
  14.                 dispoff(!DEBUG);
  15.                 command(ARCHIVER|{ a }|LOG2|{NIFBMAIL.lzh }|
  16.                             TEMP2|file);
  17.                 dispoff({No});delfile(TEMP2|file);
  18.                 write(LOG2|{TITLE\NIFBMAIL.TXT},
  19.                     file|{ }|TITLE|{ \n})});
  20.             },
  21.             {No},
  22.             {mkdir2(LOG2|{Nifbmail});
  23.             %file    @crefile(LOG2|{NIFBMAIL},{bml});
  24.             type(LOG2|{NIFBMAIL\}|file);type({\n});
  25.             wait(,,{2:しない)\n：},);
  26.             write(LOG2|{NIFBMAIL\TITLE.TXT},file|{ }|TITLE|{ \n});
  27.             });
  28.         setcdir(CDIR);type({2\n});WAITABORT(Wtime2);
  29.         });
  30.     };
  31.  
  32. %BMail    {
  33.     type({DOWN PROT:BPL\n});
  34.     wait(Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  35.         {\n },
  36.         {wait(Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  37.             {\n },
  38.             {BMAILNO:=@getchar(@tail(@body(@laststr(100),,{\n}),
  39.                         {\n }),1,2);
  40.             Type:=@getchar(@tail(@body(@laststr(100),,{\n}),
  41.                         {\n }),29,1);
  42.             TITLE:=@getchar(@tail(@body(@laststr(100),,{\n}),
  43.                         {\n}),6,17)|
  44.                 @getchar(@tail(@body(@laststr(100),,{\n}),
  45.                         {\n}),31);
  46.             WAITABORT(Wtime2);case(Type,{B},{BMail2(BMAILNO)})},
  47.             {\n*},
  48.             {BMAILNO:=@getchar(@tail(@body(@laststr(100),,{\n}),
  49.                         {\n }),1,2);
  50.             Type:=@getchar(@tail(@body(@laststr(100),,{\n}),
  51.                         {\n }),29,1);
  52.             TITLE:=@getchar(@tail(@body(@laststr(100),,{\n}),
  53.                         {\n}),6,17)|
  54.                 @getchar(@tail(@body(@laststr(100),,{\n}),
  55.                         {\n}),31);
  56.             WAITABORT(Wtime2);case(Type,{B},{BMail2(BMAILNO)})},
  57.             {\n＞},
  58.             {BMAILNO:=@getchar(@tail(@body(@laststr(100),,{\n}),
  59.                         {\n }),1,2);
  60.             Type:=@getchar(@tail(@body(@laststr(100),,{\n}),
  61.                         {\n }),29,1);
  62.             TITLE:=@getchar(@tail(@body(@laststr(100),,{\n}),
  63.                         {\n}),31);
  64.             case(Type,{B},{BMail2(BMAILNO)})});
  65.         },{\n＞},);
  66.     };
  67.  
  68. BMail;
  69.